home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / pctj8411.arc / DIGITEST.BAS < prev    next >
BASIC Source File  |  1986-09-14  |  1KB  |  26 lines
  1. 1000 '      **********  TEST FOR INTERRUPT INPUT  **********
  2. 1010 '
  3. 1020 OPEN "COM1:" AS 1           ' OPEN WITH DEFAULT SETTINGS
  4. 1030 COM (1) ON                  ' ENABLE INTERRUPT
  5. 1040 ON COM (1) GOSUB 2000       ' WHERE TO GO WHEN INT. RECEIVED
  6. 1050 CLS
  7. 1060 LOCATE 25,30                ' FIND DISPLAY AREA
  8. 1070 PRINT "INPUT VALUE ="       ' PRINT CONSTANT
  9. 1080 COUNT=COUNT+1               ' COUNTER
  10. 1090 PRINT "THIS IS LINE";COUNT  ' BUSY WORK FOR SCREEN
  11. 1100 GOTO 1080                   ' GO BACK
  12. 1110 '
  13. 1120 '      **********  END OF MAIN PROGRAM  **********
  14. 1130 '
  15. 1140 '
  16. 1150 '      **********  INTERRUPT SERVICE SUBROUTINE  **********
  17. 1160 '
  18. 2000 COM (1) OFF                 ' DEBOUNCE BY TURNING OFF INT.
  19. 2010 LOCATE 25,43                ' FIND DISPLAY AREA
  20. 2020 PRINT INP(1022);" "         ' DISPLAY TOTAL OF DIGITAL INPUT
  21. 2030 FOR K=1 TO 500:NEXT         ' DECODE AND USE INPUT HERE
  22. 2040 COM (1) ON                  ' TURN INTERRUPT BACK ON
  23. 2050 RETURN                      ' RETURN TO MAIN PROGRAM
  24. 2060 '
  25. 2070 '      **********  END OF SUBROUTINE  **********
  26.